home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / programming / amoslist / amoslist.mar / 000003_amos-request@svcs1.digex.net_Sun Mar 2 23:53:58 1997.msg < prev    next >
Text File  |  1997-04-01  |  4KB  |  115 lines
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail1.access.digex.net (8.8.5/8.8.5) with ESMTP id XAA10778
  3.     for <mcox@access.digex.net>; Sun, 2 Mar 1997 23:53:54 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id WAA20354
  6.     for amos-out; Sun, 2 Mar 1997 22:16:14 -0500 (EST)
  7. Received: from mail1.access.digex.net (mail1.access.digex.net [205.197.247.2])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id WAA20351
  9.     for <amos-list@svcs1.digex.net>; Sun, 2 Mar 1997 22:16:13 -0500 (EST)
  10. Received: from catamaran.netwave.net (root@catamaran.netwave.net [207.112.132.11])
  11.     by mail1.access.digex.net (8.8.5/8.8.5) with ESMTP id WAA03594
  12.     for <amos-list@access.digex.net>; Sun, 2 Mar 1997 22:16:12 -0500 (EST)
  13. Received: from pppc85.netwave.net (pppc85.netwave.net [207.112.132.135])
  14.           by catamaran.netwave.net (8.8.4/8.8.4) with SMTP
  15.       id VAA15460 for <amos-list@access.digex.net>; Sun, 2 Mar 1997 21:32:17 -0600
  16. Date: 02 Mar 97 17:05:38 +0500
  17. From: "Rand R. Fredricksen" <rand@maui.netwave.net>
  18. Subject: Re: Systemtime
  19. To: * AMOS Mailing List * <amos-list@access.digex.net>
  20. In-Reply-To: <328.7000T1208T2885@mbox2.swipnet.se>
  21. Message-ID: <2180.7000T1025T1914@maui.netwave.net>
  22. MIME-Version: 1.0
  23. Content-type: text/plain; charset=us-ascii
  24. Content-transfer-encoding: 7bit
  25. X-Mailer: THOR 2.4 (Amiga;TCP/IP)
  26. Status: RO
  27. X-Status: 
  28.  
  29. Reine Johansson digitized on 03-Mar-97 00:08:57:
  30.  RJ> How do I get the systemtime in AMOS? Example code _please_
  31.  
  32. In AmosPRO you can call these procedures:
  33.  
  34.  
  35. '******************************************************* 
  36. '*                                                     * 
  37. '* AMOS Professional Procedure Library                 * 
  38. '*                                                     * 
  39. '* Procedure: Date and Time                            *   
  40. '*                                                     * 
  41. '*    Author: Francois Lionet                          *   
  42. '*                                                     * 
  43. '******************************************************* 
  44. '
  45. _DATE$ : Print Param$
  46. _TIME$ : Print Param$
  47. '
  48. Procedure _DATE$
  49.    '
  50.    ' Call DOS DateStamp function
  51.    T$=Space$(12)
  52.    Dreg(1)=Varptr(T$)
  53.    RIEN=Doscall(-192)
  54.    NJ=Leek(Varptr(T$))
  55.    '
  56.    ' Find this year's first day 
  57.    A=1978 : JOUR=7
  58.    Do 
  59.       BIS=0 : If(A and 3)=0 : BIS=1 : End If 
  60.       Exit If NJ-365-BIS<0
  61.       Add JOUR,1+BIS : If JOUR>7 : Add JOUR,-7 : End If 
  62.       Add NJ,-365-BIS
  63.       Inc A
  64.    Loop 
  65.    '
  66.    ' Find month 
  67.    M=1
  68.    Do 
  69.       Read N
  70.       Exit If NJ-N<0
  71.       Add NJ,-N : Inc M
  72.    Loop 
  73.    Inc NJ
  74.    '
  75.    ' Fabrique la chaine 
  76.       J$=Mid$(Str$(NJ),2) : If Len(J$)<2 : J$="0"+J$ : End If 
  77.       M$=Mid$(Str$(M),2) : If Len(M$)<2 : M$="0"+M$ : End If 
  78.       A$=Mid$(Str$(A),2)
  79.       DATE$=J$+"-"+M$+"-"+A$
  80.    '
  81.    ' Length of each month 
  82.    Data 31,28+BIS,31,30,31,30,31,31,30,31,30,31
  83.    '
  84. End Proc[DATE$]
  85. Procedure _TIME$
  86.    '
  87.    ' Call DOS function
  88.    T$=Space$(12)
  89.    Dreg(1)=Varptr(T$)
  90.    RIEN=Doscall(-192)
  91.    MN=Leek(Varptr(T$)+4)
  92.    SEC=Leek(Varptr(T$)+8)
  93.    '
  94.    ' Minutes calculation
  95.    H=MN/60 : H$=Mid$(Str$(H),2) : If Len(H$)<2 : H$="0"+H$ : End If 
  96.    M=MN mod 60 : M$=Mid$(Str$(M),2) : If Len(M$)<2 : M$="0"+M$ : End If 
  97.    '
  98.    ' Seconds calculation  
  99.    S=SEC/50 : S$=Mid$(Str$(S),2) : If Len(S$)<2 : S$="0"+S$ : End If 
  100.    '
  101.    ' Final string 
  102.    TIME$=H$+":"+M$+":"+S$
  103.    '
  104. End Proc[TIME$]
  105.  
  106.  
  107. Hope this helps.
  108. - Rand
  109.  
  110. --
  111. rand@maui.netwave.net   ////
  112. Rand R. Fredricksen    //// 
  113. Wheeling IL  USA  \\\\////  
  114.                    \\\///   
  115.